home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xt / objects.c < prev    next >
C/C++ Source or Header  |  1990-02-22  |  558b  |  20 lines
  1. #include <varargs.h>
  2.  
  3. #include "xt.h"
  4.  
  5. Match_Xt_Obj (x, v) Object x; va_list v; {
  6.     register type = TYPE(x);
  7.  
  8.     if (type == T_Context) {
  9.     return va_arg (v, XtAppContext) == CONTEXT(x)->context;
  10.     } else if (type == T_Class) {
  11.     return va_arg (v, WidgetClass) == CLASS(x)->class;
  12.     } else if (type == T_Widget) {
  13.     return va_arg (v, Widget) == WIDGET(x)->widget;
  14.     } else if (type == T_Identifier) {
  15.     return va_arg (v, int) == IDENTIFIER(x)->type
  16.         && va_arg (v, XtPointer) == IDENTIFIER(x)->val;
  17.     } else Panic ("Match_Xt_Obj");
  18.     return 0;
  19. }
  20.